home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / egavga.swg / 0078_Clear Screen in Mode $13.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-11-02  |  341 b   |  21 lines
  1. {
  2. WILLIAM MCBRINE
  3.  
  4. > I am looking For a Procedure to clear a screen in mode $13.  Writing
  5. > black pixels to each position isn't quite fast enough!
  6.  
  7. This assumes that color 0 is black.
  8. }
  9.  
  10. Procedure clearmode13; Assembler;
  11. Asm
  12.   cld
  13.   mov ax, $A000
  14.   mov es, ax
  15.   xor di, di
  16.   xor ah, ah
  17.   mov cx, 32000
  18.   rep stosw
  19. end;
  20.  
  21.